home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_5767.txt < prev    next >
Text File  |  1988-09-28  |  11KB  |  492 lines
  1. -- card: 5767 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Mail Functions
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     repeat 3
  13.       put recvUpTo(port,return,2,false,false) into newIn
  14.     end repeat
  15.   end if
  16. end idle
  17.  
  18. on opencard
  19.   global lastday
  20.   put lastday into field "laston"
  21.   put the abbrev date into field "now"
  22. end opencard
  23.  
  24.  
  25. -- part 1 (button)
  26. -- low flags: 00
  27. -- high flags: 8004
  28. -- rect: left=152 top=126 right=154 bottom=333
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: Post a message
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   global port
  40.   sendSPort port,false,"p"&return
  41.   ask "Who do you want this message to go to?" with "FirstName LastName"
  42.   if it is empty then
  43.     sendSPort port,false,return
  44.   else
  45.     sendSPort port,false,it&return
  46.     wait 10
  47.     ask "What will be the title of your message?"
  48.     repeat until it<>empty
  49.       ask "What will be the title of your message?"
  50.     end repeat
  51.     sendSPort port,false,it&return
  52.     go to card "Message writing"
  53.   end if
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 2 (button)
  59. -- low flags: 00
  60. -- high flags: 8004
  61. -- rect: left=84 top=189 right=211 bottom=184
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Forward
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   global port
  73.   sendSPort port,false,"f"&return
  74.   put recvUpTo(port,return,1,false,false) into newIn
  75.   ask "How do you wish to read (Format #-#,#,#-)?"
  76.   repeat until it<>empty
  77.     ask "How do you wish to read (Format #-#,#,#-)?"
  78.   end repeat
  79.   sendSPort port,false,it&return
  80.   repeat 3
  81.     idle
  82.   end repeat
  83.   push card
  84.   go card "Scan"
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 3 (button)
  90. -- low flags: 00
  91. -- high flags: 8004
  92. -- rect: left=293 top=189 right=211 bottom=393
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Backwards
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global port
  104.   sendSPort port,false,"r"&return
  105.   put recvUpTo(port,return,1,false,false) into newIn
  106.   ask "How do you wish to read (Format #-#,#,#-)?"
  107.   repeat until it<>empty
  108.     ask "How do you wish to read (Format #-#,#,#-)?"
  109.   end repeat
  110.   sendSPort port,false,it&return
  111.   repeat 3
  112.     idle
  113.   end repeat
  114.   push card
  115.   go card "Scan"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 4 (field)
  121. -- low flags: 01
  122. -- high flags: 0000
  123. -- rect: left=136 top=167 right=188 bottom=333
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 16640
  130. -- line height: 16
  131. -- part name: 
  132.  
  133.  
  134. -- part 5 (field)
  135. -- low flags: 00
  136. -- high flags: 0004
  137. -- rect: left=122 top=82 right=105 bottom=370
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 3
  142. -- text size: 18
  143. -- style flags: 16640
  144. -- line height: 24
  145. -- part name: Section
  146.  
  147.  
  148. -- part 7 (button)
  149. -- low flags: 00
  150. -- high flags: 8003
  151. -- rect: left=189 top=189 right=211 bottom=289
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Scan
  160. ----- HyperTalk script -----
  161. on mousedown
  162.   global port
  163.   put the mouseloc into myPlace
  164.   put item 1 of myPlace into horiz
  165.   put item 2 of myPlace - 10 into vert
  166.   get PopUpMenu("All;Go back days;Quit;Use Search Strings;Start", 3, vert, horiz)
  167.   put recvUpTo(port,return,1,false,false) into newIn
  168.   if it = 1 then
  169.     sendSPort port,false,"s"&return
  170.     wait 10
  171.     sendSPort port,false,"a"&return
  172.     repeat 3
  173.       idle
  174.     end repeat
  175.     push card
  176.     go card "Scan"
  177.   else if it = 2 then
  178.     sendSPort port,false,"s"&return
  179.     wait 10
  180.     sendSPort port,false,"g"&return
  181.     wait 10
  182.     push card
  183.     set lockscreen to true
  184.     go card "Main Menu"
  185.     get card field 1 of card "Main Menu"
  186.     put it into junk
  187.     go card "days"
  188.     put junk into card field 1 of card "Days"
  189.     set lockscreen to false
  190.   else if it = 3 then pass mousedown
  191.   else if it = 4 then
  192.     sendSPort port,false,"s"&return
  193.     wait 10
  194.     push card
  195.     sendSPort port,false,"u"&return
  196.     wait 10
  197.     answer "Search for‚Ķ" with "Author" or "Message Title" or "Receiver"
  198.     if it = "Author" then sendsPort port,false,"a"&return
  199.     else if it = "Message title" then sendSPort port,false,"m"&return
  200.     else if it = "Receiver" then sendSPort port,false,"r"&return
  201.     ask "Search "&it&" for what string?"
  202.     if it<> empty then
  203.       sendSPort port,false,it&return
  204.       sendSPort port,false,"s"&return
  205.       repeat 3
  206.         idle
  207.       end repeat
  208.  
  209.       go card "Scan"
  210.     end if
  211.   else if it= 5 then
  212.     sendSPort port,false,"s"&return
  213.     wait 10
  214.     push card
  215.     SendSPort port,false,"s"&return
  216.     repeat 3
  217.       idle
  218.     end repeat
  219.     go card "Scan"
  220.   end if
  221. end mousedown
  222.  
  223.  
  224.  
  225. -- part 8 (button)
  226. -- low flags: 00
  227. -- high flags: 8004
  228. -- rect: left=182 top=265 right=295 bottom=309
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Delete a message
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   global port
  240.   sendSPort port,false,"d"&return
  241.   put recvUpTo(port,return,1,false,false) into newIn
  242.   ask "What to delete (Format #-#,#,#-)?"
  243.   repeat until it<>empty
  244.     ask "What to delete (Format #-#,#,#-)?"
  245.   end repeat
  246.   sendSPort port,false,it&return
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 9 (button)
  252. -- low flags: 00
  253. -- high flags: 8004
  254. -- rect: left=375 top=281 right=303 bottom=475
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Main Menu
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   global port
  266.   sendSPort port,false,"e"&return
  267.   put empty into card field "Section"
  268.   go card "Main Menu"
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 10 (button)
  274. -- low flags: 00
  275. -- high flags: 8004
  276. -- rect: left=375 top=305 right=327 bottom=475
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Log off
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   global port
  288.   sendSPort port,false,"g"&return
  289.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  290.   put empty into card field "Section"
  291.   if it="Yes, bye" then
  292.     sendsPort port,false,"y"&return
  293.     go card 1
  294.   else if it="NO WAIT!!" then
  295.     sendSPort port,false,"n"&return
  296.     go card "Main Menu"
  297.   end if
  298.  
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 11 (button)
  304. -- low flags: 00
  305. -- high flags: 8004
  306. -- rect: left=375 top=257 right=279 bottom=475
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: EMail Menu
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   global port
  318.   sendSPort port,false,"-"&return
  319.   put empty into card field "Section"
  320.   go card "EMail Menu"
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 12 (button)
  326. -- low flags: 00
  327. -- high flags: 0000
  328. -- rect: left=54 top=31 right=68 bottom=90
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 21060 / 21060
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: New Button
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   if card field "section" contains "PD" then show card field "PD"
  340.   else if card field "section" contains "Hard" then show card field "Hard"
  341.   else if card field "section" contains "Soft" then show card field "Soft"
  342.   else if card field "section" contains "Private" then show card field "Private"
  343.   else if card field "section" contains "Open" then show card field "Open"
  344. end mouseUp
  345.  
  346.  
  347.  
  348. -- part 13 (field)
  349. -- low flags: 81
  350. -- high flags: 0004
  351. -- rect: left=88 top=135 right=190 bottom=402
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 3
  356. -- text size: 9
  357. -- style flags: 0
  358. -- line height: 12
  359. -- part name: PD
  360. ----- HyperTalk script -----
  361. on mouseup
  362.   hide card field "PD"
  363. end mouseup
  364.  
  365.  
  366. -- part 14 (field)
  367. -- low flags: 81
  368. -- high flags: 0004
  369. -- rect: left=88 top=135 right=190 bottom=402
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 3
  374. -- text size: 9
  375. -- style flags: 0
  376. -- line height: 12
  377. -- part name: Hard
  378. ----- HyperTalk script -----
  379. on mouseup
  380.   hide card field "hard"
  381. end mouseup
  382.  
  383.  
  384. -- part 15 (field)
  385. -- low flags: 81
  386. -- high flags: 0004
  387. -- rect: left=88 top=135 right=190 bottom=402
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 3
  392. -- text size: 9
  393. -- style flags: 0
  394. -- line height: 12
  395. -- part name: Private
  396. ----- HyperTalk script -----
  397. on mouseup
  398.   hide card field "Private"
  399. end mouseup
  400.  
  401.  
  402. -- part 16 (field)
  403. -- low flags: 81
  404. -- high flags: 0004
  405. -- rect: left=88 top=135 right=190 bottom=402
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 3
  410. -- text size: 9
  411. -- style flags: 0
  412. -- line height: 12
  413. -- part name: Soft
  414. ----- HyperTalk script -----
  415. on mouseup
  416.   hide card field "Soft"
  417. end mouseup
  418.  
  419.  
  420. -- part 17 (field)
  421. -- low flags: 81
  422. -- high flags: 0004
  423. -- rect: left=88 top=135 right=190 bottom=402
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 3
  428. -- text size: 9
  429. -- style flags: 0
  430. -- line height: 12
  431. -- part name: Open
  432. ----- HyperTalk script -----
  433. on mouseup
  434.   hide card field "Open"
  435. end mouseup
  436.  
  437.  
  438. -- part contents for background part 1
  439. ----- text -----
  440.  
  441.  
  442.  
  443.  
  444.  
  445. Tue, Jul 5, 1988, 5:46 PM
  446. Sun, Jul 10, 1988, 2:38 AM
  447.  
  448. -- part contents for card part 4
  449. ----- text -----
  450. Read messages:
  451.  
  452. -- part contents for background part 4
  453. ----- text -----
  454. Thu, Sep 22, 1988
  455.  
  456. -- part contents for background part 5
  457. ----- text -----
  458. 8:59 PM
  459.  
  460. -- part contents for card part 13
  461. ----- text -----
  462. Post requests for disk from the NCMC's PD library (Catalog available in the file area).
  463.  
  464. Post all your messages to "All".
  465.  
  466.  
  467.  
  468. -- part contents for card part 14
  469. ----- text -----
  470. This is the area where you can post messages having to do with computer hardware.  Place any questions or comments.  This is a good place to take advantage of other people's know-how about specific pieces of equipment.
  471.  
  472. -- part contents for card part 15
  473. ----- text -----
  474. This is the section for private coversations. Make sure you have your party's name (as he/she is listed on here) correct.
  475.  
  476. My address is "System Operator"
  477.  
  478.  
  479. -- part contents for card part 16
  480. ----- text -----
  481. Here is the area to put all your comments and questions about Mac software.  Rave about your favourite piece or complain about the worst. 
  482. Here is a place to get good hints!
  483.  
  484. -- part contents for card part 17
  485. ----- text -----
  486. An open forum for you to place your feelings about anything and everything. The only rule we have is: Keep it clean!
  487.  
  488.  
  489.  
  490. -- part contents for background part 3
  491. ----- text -----
  492. Thu, Sep 22, 1988, 9:08 AM